home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / VCR / RECORDER.CLS < prev    next >
Encoding:
Text File  |  1996-09-16  |  940 b   |  32 lines
  1. VERSION 1.0 CLASS 
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsRecorder"
  6. Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
  7. Attribute VB_Creatable = False
  8. Attribute VB_TemplateDerived = False
  9. Attribute VB_PredeclaredId = False
  10. Attribute VB_Exposed = False
  11. Attribute VB_Customizable = False
  12. '**********************************************
  13. ' Class module for the VCR sample application
  14. ' Acts as the logic module for the VCR to store
  15. ' data and track recording activity
  16. '**********************************************
  17.  
  18. Option Explicit
  19.  
  20. Public Channel As Integer   'Channel to record
  21. Public StartRecording As Variant    'Start time
  22. Public StopRecording As Variant     'End time
  23. Public Enabled As Boolean   'Recording mode
  24.  
  25. Private Sub Class_Initialize()
  26.     ' Initialize the class properties
  27.     Enabled = True
  28.     Channel = 3
  29.     StartRecording = Empty
  30.     StopRecording = Empty
  31. End Sub
  32.